home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 31
/
64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64
/
listing 4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
474b
|
28 lines
10 rem demo-listing 3
11 :
15 rem echo am ende
16 :
20 rem laden einer vorher erstellten
21 rem blocktabelle von diskette
22 :
25 bload"b.demo",8 block 31
26 :
30 rem laden der tondaten
31 :
35 bload"s.demo",8
36 :
40 rem abspielen nach blocktabelle
41 :
45 voldef 0,5,10,15
46 :
50 play block 1 speed 10
51 play block 2 speed 10
52 play block 3 speed 10
53 :
55 rem block drei wiederholen
56 :
60 for i=5 to 0 step -1
65 voldef 0,i,2*i,3*i
70 play block 3 speed 10
75 next i